home *** CD-ROM | disk | FTP | other *** search
/ PC User 2003 July / Disc 1 / PCU0703CD1.iso / software / online / files / imacros.exe / DATABASE-2-WEB.VBS < prev    next >
Encoding:
Text File  |  2002-07-11  |  1.7 KB  |  51 lines
  1. Option Explicit
  2.  
  3. MsgBox ("This example script reads information from a database and submits it to a web form." & vbCrLf &  vbCrLf &_
  4. "In this example the ""database"" is a simple text file in CSV format." & vbCrLf &  vbCrLf &_
  5. "Note: If you change the file name of the input text file, you also need to change it in the ""schema.ini"" file.")
  6.  
  7. 'Tip: For more information on the method used here
  8. 'search for "Text File Driver" and "Schema.ini" in any search engine
  9.  
  10. Dim rs, sDir, strConnect
  11. Dim iim1, iret
  12.  
  13. set rs = createobject("ador.recordset")
  14. sDir =  Replace(WScript.ScriptFullName, WScript.ScriptName, "") 'Get current directory
  15. strConnect = _
  16.    "Driver={Microsoft Text Driver (*.txt; *.csv)};" & _
  17.    "DefaultDir=" & sDir & ";"
  18. Const adOpenStatic = 3
  19. rs.open "select * from test.csv", strConnect, adOpenStatic
  20.  
  21. MsgBox "Input file information:" & vbCrLf &  vbCrLf & _
  22. "Recordcount: " & rs.recordcount & vbCrLf &  vbCrLf & _
  23. "Fields per record: " & rs.fields.count
  24.  
  25.  
  26. set iim1= CreateObject ("iimwsh.iim")
  27. iret = iim1.iimInit
  28. iret = iim1.iimDisplay("Submitting Data")
  29.  
  30. do until rs.eof
  31.    'Set the variables
  32.    iret = iim1.iimSet("-var_FNAME", rs.fields(0))
  33.    iret = iim1.iimSet("-var_LNAME", rs.fields(1))
  34.    iret = iim1.iimSet("-var_ADDRESS", rs.fields(2))
  35.    iret = iim1.iimSet("-var_CITY", rs.fields(3))
  36.    iret = iim1.iimSet("-var_ZIP", rs.fields(4))
  37.    iret = iim1.iimSet("-var_STATE-ID", rs.fields(5))
  38.    iret = iim1.iimSet("-var_COUNTRY-ID", rs.fields(6))
  39.    iret = iim1.iimSet("-var_EMAIL", rs.fields(7))
  40.    'Run the macro
  41.    iret = iim1.iimPlay("wsh-database-2-web")
  42.    If iret < 0 Then
  43.       MsgBox iim1.iimGetLastMessage()
  44.    End If
  45.   rs.movenext
  46. loop
  47.  
  48. iret = iim1.iimDisplay("Done!")
  49. iret = iim1.iimExit
  50. WScript.Quit(0)
  51.